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Do the Strand 


An Introduction to Multithreading with Delphi 2 


Do the Strand-o, when you feel low 
Its the new way, thats why we say 
Do the Strand 

— Roxy Music, “Do the Strand” 
For Your Pleasure ... 


T he Win32 API introduces the concept of multithreading to Windows 95 
and Windows NT programs. Using multithreading, you can improve 


performance by partitioning an application into multiple paths of execu- 


tion. Although multithreading is very powerful, it adds a whole new level 


of complexity to an application. 


Fortunately, Delphi 2 provides the 
T Thread class so that you can work with 
threads and the VCL (Visual Component 


Library) in a thread-safe manner. 


Spindles and Spools 

In Windows 95 and Windows NT 
(referred to here as Win32), an application 
consists of a process and one or more 
threads. A process is an instance of the 
application and has its own virtual address 
space, global variables, and operating sys- 
tem resources. By itself, a process does not 
execute. Instead, each process has a prima- 
ty thread of execution that obtains t7me 
slices from the CPU. This primary thread 
executes the code in the application. When 
this thread terminates, the process ends. 


Win32 allows you to create additional 
threads, or simultaneous paths of execu- 
tion, within an application. Each of 
these threads shares the address space of 
the parent process so they have access to 
the same global variables and resources. 
Also, the operating system gives each of 
these additional threads time slices so 
they appear to execute concurrently. (In 
a multiprocessor machine under 


Windows NT, each thread may even 
have its own dedicated CPU.) 


Threads are useful because they let you 
more efficiently use the computer’s 
CPU(s) by partitioning an application 
across threads, and, also, perform work 
or lengthy processing in the background 
while the user continues to interact with 
the application. 


The Win32 API provides facilities for you 
to create and use additional threads in 
your application. However, these facilities 
alone do not permit you to use VCL com- 
ponents in a thread-safe manner without 
corrupting data. (“Thread safe” means 
that two or more simultaneous processes 
are designed in such a way that the code 
being executed in one thread does not 
interfere with the execution of the other.) 


Fortunately, Delphi provides a T Thread 
class that encapsulates the threading 
mechanism and works with the VCL. 
You can use the 7 Thread class along 
with Win32 API functions to add pow- 
erful multithreading capabilities to your 
application. 
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When to Use Additional Threads 


Here are some situations where multithreading can be very 

useful: 

m Often a user will initiate some work that requires a 
lengthy process. With Windows 3.x and single-threaded 
applications, the user interface is unresponsive while the 
work is going on because the primary (and only) thread 
cannot process window messages while it’s working on 
some other task. This leaves the user in an unproductive 
state while waiting for the task to complete. You can pre- 
vent this by creating an additional thread to finish the 
task in the background. This keeps the main user inter- 
face very responsive and available to handle user interac- 
tion while the work is being completed. 


= Inan MDI (multiple document interface) application 
where you have multiple documents represented by 
child forms, you can give each child form its own thread 
to perform any lengthy processing. If one of the child 
forms initiates a lengthy process, the user can move to 
one of the other child forms and continue working. 


m Windows NT supports machines with one or more 
processors by distributing threads across the set of 
CPUs. When you run a single-threaded application on 
a machine with multiple processors, you may not be 
efficiently using the additional processing power. By 
partitioning the application using threads, you can bal- 
ance the load and significantly increase the applica- 
tion’s performance. 


m With a Windows 3.x application, you frequently used 
a timer to perform work on a periodic basis by divid- 
ing a repetitive or lengthy task into logical units and 
executing the code when the timer event occurred. 
Any such code should be examined because it’s a nat- 
ural candidate for multithreading. 


m= Windows 95 supports both 16- and 32-bit Windows 
applications. To provide compatibility with 16-bit 
Windows applications and to maintain a good level of 
performance, Windows 95 contains a significant portion 
of the old 16-bit Windows API system code. This code is 
called by all Windows 3.x applications and by Windows 
95 applications that make certain Win32 API calls, 
including those to the GDI and USER modules. ‘This 
16-bit code was never designed to be used simultaneous- 
ly by multiple threads, so access to it is protected. 
Windows 95 internally uses Win 16Mutex, a system-wide 
mechanism for guaranteeing exclusive access to the code. 


m Essentially, whenever a thread makes a call to a pro- 
tected 16-bit API function, any other thread 
attempting to call any other 16-bit API function 
waits until the first thread yields to Windows or 
releases control. If an application doesn’t yield, or 
stops processing window messages for a long time, 
all these other applications will be tied up. 


Unfortunately, this can leave Windows 95 applica- 
tions unresponsive because many 32-bit API func- 
tions, including those that handle the user interface, 
actually call the 16-bit code base. To minimize the 
effects of this, you can create additional threads to 
perform the work in the background while the pri- 
mary thread is waiting on the user interface. 


Creating Threads Using the IThread Class 

The Delphi 2 7Thread class encapsulates the multithread- 
ing mechanism so that you don’ have to rely solely on 
Win32 API function calls to create threads. More impor- 
tantly, the 7Thread class provides a facility to work with 
VCL components in a thread-safe manner, and also sup- 
plies a simpler alternative to thread local storage, a way to 
associate data with individual threads. 


You can work entirely with threads using the Win32 API. 
However, you will be working at a lower level and also 
must supply your own framework for synchronizing access 
to the VCL. If you do not synchronize your thread’s access 
to VCL properties and methods, you run the risk of cor- 
rupting shared data and generating access violations. 


The TThread class does not completely hide all the details 
of working with the Win32 API. Instead, it’s a thin wrap- 
per that removes the drudgery of VCL synchronization and 
thread local storage. When you instantiate a 7 Thread, the 
class creates a new thread and stores its handle internally. 


The 7 Thread class is defined in the CLASSES unit, so be 
sure to include this unit in your uses statement. Figure 1 
lists the protected and public properties of the 7 Thread 
class, while Figure 2 lists the protected and public methods. 


Using the TThread Class 


The steps required to add multithreading to your Delphi 2 

applications are fairly straightforward. For each new thread, 
you first derive a new 7 Thread class from the base 7 Thread 
class. Then you add code to instantiate the new object. You 


can define the new thread class by adding the 7Thread type 


declaration into an existing unit, or by creating a separate unit 


to hold the 7 Thread definition from the Object Repository. 


FreeOnTerminate Specifies whether the VCL automatically destroys 
the thread upon termination. Default is False. 
Handle The thread handle. 
Lets you set/get the thread’s relative priority. 


An event property for the event handler that is exe- 
cuted when the thread terminates. 


Priority 


OnTerminate 


The value returned by a thread. 
A Boolean variable that lets you set/get the thread’s 
suspended state. 


A read-only Boolean that indicates if the thread 
should terminate. 
The thread's ID. 


Figure 1: TThread class properties. 


ReturnValue 


Terminated 


ThreadID 





Delphi Informant | une 1996 =10 


COVER 


Suspends execution of a thread. 


Suspends execution until a specified thread is signaled. 


New Items 


New | Project Forms Dialogs | Data Modules | Projects | 


enuf 4 - 


ON THE 


Create is the thread constructor. 
Destroy is the thread destructor. 


DoTerminate calls the OnTerminate event handler, if 
one exists. DoTerminate executes as part of the thread, 
as opposed to OnTerminate, which executes as part of 
the process. It is unusual to override this method. 


Execute is a virtual, abstract method that you over- 


ride to specify the thread's behavior. Do not call this 
method; it is automatically called by the constructor. 


Resumes execution of a suspended thread. 











Application Automation Component Data Module 
Object 
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Form Text Thread Object 
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Figure 2 (Top): TThread class methods. 
Figure 3 (Bottom): The New Items dialog box. 





To create a new thread unit for an existing project using 
the Object Repository, select File | New. Delphi displays 


the New Items dialog box, as shown in Figure 3. 


When you select the 
Thread Object icon from 

a ae ; Class Name: [TMyThread 
this dialog box and click lila 


Cancel | 


OK, the New Thread 
Object dialog box appears, 


prompting you to name the Figure 4: The New Thread Object 
dialog box. 





new class (see Figure 4). 


After entering the name, a new unit appears containing a 
basic TThread class declaration. For example, if you have a 
new project, and then use the Object Repository to add a 
second unit for a thread class named 7MyThread, your 
screen will resemble Figure 5. 


After declaring the new class, you need to define the code 
that goes into the 7Thread’s member functions. At a mini- 
mum, you should place the thread’s main worker code into 
the 7Thread’s Execute method, the place reserved for this 
code. For instance, if your code performs a background cal- 
culation, you should place this calculation in Execute. 


Next, you should add code to store the 7'Thread variable 


in a global or member variable so that you can reference it 


asi =o) x) 
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2 Oy ay a aa > Standard | Additional | win95 | Data Access | Data Controls | Win 3.1 | Dialogs | System | QRepatt | ocx | Samples | 
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Properties | Events | 


ClientHeight 273 
Clientwidth 434 
Color clBtnFace 
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Cursor crDefault Be uses 
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+Font (TFont) une 
FormStyle —_ fsNormal ne type 
Height 300 ae TNyThread = class (TThread) 
HelpContext 0 private 
Hint 

+HorzScroliBar [TControlScrollE 
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© Unit Unit2 | 


unit Unit2; 


interface 


{ Private declarations } 
protected 
procedure Execute; override; 


KeyPreview False end: 


Left 193 

Menu 

Name Form 
ObjectMenulte 

PixelsPerlnch 96 

PopupMenu 

Position poDesigned 
PrintScale poPropottional hd 


implementation 


{ DTmportant: Methods and properties of objects in VCL can only be 
method called using Synchronize, for example, 


11: 30) Modified Insert 
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Figure 5: The default unit created for the new TThread type. 


in your code. Finally, you should add the actual code to 
create the new 7 Thread and work with it. This code may 
perform functions to suspend or resume execution of the 
thread or even terminate it. These steps are described in 
the following sections. 


Creating a Thread 

To create a new TThread, you declare a T Thread class, a 
variable or member variable of this class, and then call its 
Create constructor. A constructor of the T7Thread type has 
the following syntax: 


Create( Suspended : Boolean ); 


When you call the constructor you pass to it a single 
Boolean parameter, Suspended, that indicates if the thread 
should be created in a suspended state. Normally, you 
would pass a value of False so that the thread begins execu- 
tion immediately. 


Assuming that you have declared an object named 
MyThread of the type T Thread, the following code seg- 


ment would create and execute it: 


MyThread.Create(False) ; 


Placing the Code for the Background Work 

The 7Thread class defines a virtual abstract method, 
Execute, that you override to implement the code for 
your background task. The constructor for 7Thread calls 
Execute immediately after creating the thread so you 
don’t need to run it explicitly. When Execute is finished 
running, the thread terminates and sets a return value 
that you can query using the Return Value property. 


The code that you place into Execute may perform some 
background task such as a lengthy calculation or query. If 
the code resides in a loop, the loop should contain some pre- 
defined condition that breaks out when it’s True, such as 
when a certain number of iterations have passed. You should 
also place a test inside the loop to see if the 7erminated prop- 
erty is 7rue. If so, your code should immediately exit the 
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Execute method. (The reason why you need this additional 
piece of code will become clearer later.) The following is an 
example of the implementation code for an Execute method: 


procedure TMyThread.Execute; 
begin 
while MoreWork do begin 
CalculateSpreadsheet ; 
if Terminated then 
Exit; 


{ Perform some work } 


end; 
end; 


Using VCL Components from within a Thread 

There are special considerations to make if you plan to 
access any of the VCL components from within your 
thread. This is because the VCL is not implicitly 
thread-safe. In other words, any unprotected access of a 
component from within a thread may potentially cor- 
rupt data or cause an access violation. This includes 
calling any methods, and/or reading or writing from 
any of a component’ properties. 


Access to the VCL must be protected because multiple 
threads may try to work with the same component 
simultaneously, possibly leading to data corruption or 
other unwanted side effects. Also, for performance and 
efficiency, the VCL caches Windows GDI (Graphic 


Device Interface) objects that handle screen painting. 


Windows does not allow two or more threads to have simul- 
taneous access to a GDI object. This may happen because 
the VCL stores and reuses GDI objects — in this case, you 
can get an access violation with multithreaded access. 


Using Synchronize with the VCL. To address the issue of 
thread-safe VCL access, the 7 Thread class provides a 
Synchronize method. If your thread needs to access a VCL 
component, the thread should not do it directly. Instead, 
you should put this code into a separate method, and then 
execute this method by calling Synchronize. 


Synchronize has the following syntax: 
Synchronize( Method : TThreadMethod ); 


When you call Synchronize, you send a method to it by 
value. Synchronize then executes this method in a 
thread-safe manner. In most cases, you will want the 
method that you pass to Synchronize to be a member of 
the same derived Thread object. Doing so provides the 
method with access to the object’s private interface and 
variables. 


The code fragment in Figure 6 shows how your code 
might appear, and demonstrates how you can update a 
component’ property from within a thread. A method 
named UpdateDisplay is implemented for the 7MyThread 
class. Within this method, a Label component’s Caption 
property is updated. 


// This method accesses the caption of a Label component. 
procedure TMyThread.UpdateDisplay 
begin 
MyForm.ProgressLabel.Caption := 
‘Up to ' + IntToStr(Count) ; 
end; 


procedure TMyThread.Execute; 
begin 
while WorkToDo do begin 
DoSomeWorkMethod; 


Synchronize (UpdateDisplay) ; 


if Terminated then 
EXic: 
end; 
end; 


Figure 6: The UpdateDisplay method for the TMyThread object. 


Within the Execute method for the Thread object, a while 
loop continues to execute so long as a variable named 

Work ToDo evaluates to True. Within this loop, a call is made 
to a method named DoSomeWork. Next, this thread needs to 
update the display of the Label component. To do this, it 
calls Synchronize and passes UpdateDisplay as an argument. 


Suspending and Resuming Threads 

The 7Thread class provides the Suspend and Resume 
methods to suspend and resume execution of a thread. 
When a thread is suspended, it’s idle and no CPU 


cycles are given to it. 


To suspend a thread, just call the 7 Thread object’s Suspend 
method from another thread (primary or otherwise). A 
thread can even suspend itself by calling its own Suspend 
method. You shouldn't do this, however, unless you expect 
another thread to reawaken the suspended thread. To 
resume execution, just call the 7Thread’s Resume method. 


Thread Priority 

The 7 Thread class defines the Priority property so that you 
can dynamically change the priority of a thread. A thread’s 
priority determines when and how often it’s scheduled for 
execution by the operating system. By setting one thread’s 
priority higher than another, you give it more CPU time. A 
thread’s priority level ranges from 0 to 31, with 31 being 
the highest level. By default, a newly created thread adopts 
the same priority level as its parent process. 


Setting a Thread’s Priority. A thread’s priority is measured 
relative to the priority of its process. The VCL defines seven 
priority levels that you can use to set the thread’s relative pri- 


ority. They are part of the 77hreadPriority enumerated type. 


The five main priority levels are: 
1) tpLowest 

2) tpLower 

3) tpNormal 

4) tpHigher 

5) tpHighest 
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A thread with a relative priority level of tpNormal has a 
priority level equal to its process. With priority levels of 
tpHigher and tpHighest, the thread’s relative priority is 1 
higher and 2 higher than its process, respectively. With 
priority levels of tpLowest and tpLower, the thread’s relative 
priority is 2 lower and 1 lower than its process. 


There are also two special priority levels: tp/dle and 

tp TimeCritical. If a thread’s priority is tpldle, its priority is 
always set to 1, unless its process is 24 or higher (real- 
time). In this case, the thread’s priority level is set to 16. If 
the thread’s priority is tp TimeCritical, its priority is always 
set to 15, unless its process is 24 or higher. In this case, 
the thread’s priority is set to 31. 


Terminating a Thread 

There are two recommended ways to terminate a thread 
when using the 7Thread class: you can call Exit from the 
TThread’s Execute method, or you can call the 7Threaa’s 


Terminate method. 


Calling Exit to Terminate a Thread. The bulk of the code 
responsible for performing your background task resides in 
the Execute method. When this code finishes running, it 
should exit the Execute method. This can happen implicit- 
ly as the last action of the method or if you call Exiz. 
When Execute finishes, the thread terminates and the 

T Thread class takes care of any cleanup. 


Calling Terminate from Another Thread. A second way to 
terminate a thread is to call the thread’s Terminate method. 
Typically, you do this when you want to terminate a specif- 
ic thread from the main thread or from another thread. 


Terminate does not actually terminate the thread, but 


= fm 


My Computer Business 


<= fi 


Network Development 


Neighborhood 
e 
Communications 


Norton 
Protected 
Recycle Bin 


Downloads 


Joe's Inbox 


sets the Zerminated property to 
True. It’s then up to your code to 
check the value of Terminated 
from inside the thread’s methods, 
and to act appropriately to exit the 
Execute method. If you do not 
have any code that does this, call- 
ing Terminate is ineffective. 


The following code segment illus- rll 
trates how this code might appear: shi2 


procedure TMyThread.Execute; 
begin 
while SomeCondition do begin 
{ Do some work here } 


DoSomeWork ; 
if Terminated then Netscape 
: Navigator intemet foe 
Exit; 
end; 


end; 


After performing a unit of work, 
the if statement checks the value of 
Terminated, and exits the method if 
its True. 


A Multithreading Example: 

Using Child Forms and Worker Threads 

In an MDI application, or in an application that displays 
a form for each task, multithreading may be appropriate. 
With multithreading, you can let each form have its own 
thread. This way the user can initiate a background task in 
one form, and then continue to interact with other forms 
while the background work is progressing. 


In such a scenario, the primary thread handles all the 
work of managing the user interface and responding to 
window messages. Each time the user initiates a new task, 
the primary thread creates a new form and gives it its own 
“worker” thread. 


This next example illustrates how you can open new 
forms, each owning its own worker thread. The lengthy 
task in this example is represented by iterating through a 
long loop and updating a track bar to show the progress. 


When you run the example in project WORK.DPR, the 
Worker Thread Examples form appears. Each time you 
press the New Thread button on this form, a new child 
form is created with its own thread, and immediately 


begins its work. Each new form has a unique caption 
that identifies the “worker” (Worker 1, Worker 2, etc.). 


Each form also contains a Suspend/Resume button that 
allows you to suspend and resume the thread. Finally, if 
you Close the form before the thread is finished, the 
form closes and the thread terminates. 


Figure 7 depicts the main form surrounded by two 
worker forms. Listing One (on page 14) shows the .PAS 


file for this example. 


on 


3% Floppy [4] 


CD-ROM Disc 


fT 


Windows 
Explorer 


Worker Thread Examples x 


Press New Thread to create each 
new thread. 
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Connection 
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Figure 7: The demonstration project at work, showing the main form and two of its 
worker forms. 
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Conclusion 

Multithreading is a welcome feature to Win32 
(Windows 95 and Windows NT) applications, but can 
add complexity and unique problems of its own. 

The 7Thread class encapsulates the threading process, 
providing a facility for working with the VCL ina 
thread-safe manner, and offering a way to associate 
local data with each thread. This lets you pursue multi- 
threading in earnest and add power and flexibility to 
your business applications. A 


Portions of this article abridged and reprinted by permis- 
sion from “Using Multithreading,” Delphi In-Depth by 
Cary Jensen, Loy Anderson, Joseph C. Fung, Ann 
Lynnworth, Mark Ostroff, Martin Rudy, and Robert 
Vivrette, published by Osborne/McGraw-Hill Companies, 
Inc. Copyright 1996 by Osborne/McGraw-Hill 
Companies, Inc. ISBN: 0-07-882211-4. 


The demonstration project referenced in this article is 
available on the Delphi Informant Works CD located in 
INFORM\JUNE\96\ DI9606/F. 


Joseph C. Fung is Director of Technology and Tools at PCSI, a leading 
client/server and Internet/Intranet consulting and development firm. He writes 
for Delphi Informant and Databased Advisor: and is the co-author of Delphi In- 
Depth and the author of Paradox for Windows Essential Power Programming. 
Mr Fung is the architect of AppExpert and ScriptView, perennial winners of the 
Databased Advisor Reader’s Choice Award and Paradox Informant Reader's 
Choice Award. Recently, Mr Fung chaired an Advisory Board for the Borland 
Developer Conterence. 


PCSI, Professional Computer Solutions, Inc., is a national leader in developing 
SQL applications using Delphi, Visual Basic, and Access, and using Microsoft 
SQL Server, Sybase, and Oracle server technologies. PCSI is a Borland 
Connections Partner and Microsoft Solution Provider at the Partner level. The 
main number for PCSI is (201) 816-8002. 


Begin Listing One — The WORKTHD.PAS file 


unit workthd; 
interface 


uses 
Classes, Forms; 


type 
TWorkerThread = class(TThread) 
private 
{ Private declarations } 
MoreWork: Boolean; 
FOwnerForm: TForm; 
protected 
procedure Execute; override; 
public 
property OwnerForm: 
TForm read FOwnerForm write FOwnerForm; 
procedure UpdateDisplay; 
end; 


implementation 
uses WorkForm, Windows, SysUtils; 


{ TWorkerThread } 


procedure TWorkerThread.UpdateDisplay; 
begin 
with (FOwnerForm as TWorkerForm) do begin 
with WorkProgressBar do 


if Position < Max then 
begin 
Position := Position + 1; 
WorkProgressLabel.Caption := 
IntToStr(Position) + ' %'; 
if Position = Max then 


begin 
MoreWork := False; 
WorkerButton.Caption := ‘Done'; 
end; 
end; 
end; 
end; 


procedure TWorkerThread.Execute; 
begin 
MoreWork := True; 
while MoreWork do begin 
{ Do some work here } 
// Simulate work by putting thread to sleep 100 ms. 
// Actually, we're just putting the thread to sleep. 
Sleep(100) ; 
if not Terminated then 
Synchronize (UpdateDisplay ) 
else 
Exask: 
end; 
end; 


end. 


End Listing One 
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